﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btn_Sum_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_Sum.Click
        Dim m As Single
        Dim w As Single
        m = CSng(tb_men.Text)
        w = CSng(tb_women.Text)

        Dim bmi As Single
        bmi = m + w

        lbl_result.Text = "Total Customers " & bmi
    End Sub
End Class